Auszug 100 Records
Opendata, Todesfälle, Sterblichkeit, Todesursachen, Mortalitätsmonitoring (MOMO)
---
title: "Mortalitätsmonitoring Schweiz"
knit: (function(input_file, encoding) {
out_dir <- '_book';
if (!dir.exists(out_dir)) dir.create(out_dir);
rmarkdown::render(input_file,
encoding=encoding,
output_file=file.path(dirname(input_file), out_dir, 'index.html'))})
output:
flexdashboard::flex_dashboard:
orientation: rows
social: menu
source_code: embed
---
```{r setup, include=FALSE}
library(dygraphs)
library(dplyr)
library(readr)
source('momodyfun.R')
# select timeseries by canton
ktlist <- c('CH','ZH','BE','VD','TI')
dft1 <- dyfun('../data/todesfaelle_woche.csv', '../data/grossregionCH.csv') %>%
filter(kt %in% ktlist)
```
Row
---------------------------------------------------
### Graf 
```{r}
# read data with dyfun and convert to timeseries
dft2 <- dft1 %>%
count(kt,date, wt=value, name='value') %>%
split(.$kt)
dft2 <- dft2[ktlist]
tslist <- lapply(dft2, function(x) {
xts::xts(x$value, order.by = x$date)
})
tss <- do.call(cbind,tslist)
dygraph(tss, main = "Todesfälle Schweiz") %>%
dyOptions(stepPlot = T) %>%
dyHighlight(highlightCircleSize = 5,
highlightSeriesBackgroundAlpha = 0.2,
hideOnMouseOut = FALSE) %>%
dyRangeSelector(dateWindow = c("2013-07-01", as.character(last(dft1$date)))) %>%
dyEvent("2020-3-17", "Lockdown", labelLoc = "bottom")
```
Row {.tabset .tabset-fade}
---------------------------------------------------
### Todesfälle Schweiz
Auszug 100 Records
```{r}
dft1 %>% filter(row_number()>n()-100) %>%
DT::datatable(class = 'cell-border stripe')
```
### Wöchentlicher Nachtrag
[Opendata](https://opendata.swiss/de/dataset/todesfalle-nach-funf-jahres-altersgruppe-geschlecht-woche-und-kanton-csv-datei5),
[Todesfälle](https://www.bfs.admin.ch/bfs/de/home/statistiken/bevoelkerung/geburten-todesfaelle/todesfaelle.html),
[Sterblichkeit, Todesursachen](https://www.bfs.admin.ch/bfs/de/home/statistiken/gesundheit/gesundheitszustand/sterblichkeit-todesursachen.html),
[Mortalitätsmonitoring (MOMO)](https://www.experimental.bfs.admin.ch/de/momo.html)
```{r}
dfdiff <- read_csv2('../data/diff.csv')
DT::datatable(dfdiff, class = 'cell-border stripe')
```
### Dokumentation
- [Opendata](https://opendata.swiss/de/dataset/todesfalle-nach-funf-jahres-altersgruppe-geschlecht-woche-und-kanton-csv-datei5)
- [Todesfälle](https://www.bfs.admin.ch/bfs/de/home/statistiken/bevoelkerung/geburten-todesfaelle/todesfaelle.html)
- [Sterblichkeit, Todesursachen](https://www.bfs.admin.ch/bfs/de/home/statistiken/gesundheit/gesundheitszustand/sterblichkeit-todesursachen.html)
- [Mortalitätsmonitoring (MOMO)](https://www.experimental.bfs.admin.ch/de/momo.html)
### Logdatei
```{r}
dflog <- read_csv2('../data/log.csv')
DT::datatable(dflog, class = 'cell-border stripe')
```